home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / asm / BarflyInCED.lha / BarflyInCED / BasmAssemble.ced < prev    next >
Encoding:
Text File  |  1995-04-06  |  909 b   |  53 lines
  1. /*
  2. ** $VER: BasmAssemble 1.5 (06.05.95)
  3. **       (c) 1995 by Christian Rattei
  4. */
  5.  
  6. options results
  7. LF = '0a'x
  8.  
  9. parse arg CEDport
  10. if CEDport = '' then CEDport = address()
  11.  
  12. address value CEDport
  13. status 18    /* numchanges */
  14. if result ~= 0 then save
  15.  
  16. status 19    /* filename */
  17. filename = result
  18.  
  19. address command
  20. 'Basm >RAM:Basm_Errors "'filename'"'
  21.  
  22. address value CEDport
  23. status 84    /* windownumber */
  24. view = result
  25.  
  26. if exists('RAM:Basm_Errors') = 0 then do
  27.     okay1 'Error:'LF'File not found'LF'(RAM:Basm_Errors).'
  28.     exit 0
  29.     end
  30.  
  31. jump to file 'RAM:Basm_Errors'
  32. if result = 0 then open new
  33.  
  34. open 'RAM:Basm_Errors'
  35.  
  36. search for "Line" 0 0 1 1
  37. errors = result
  38.  
  39. foundview = 0
  40. do while foundview = 0
  41.     'previous view'
  42.     status 84    /* windownumber */
  43.     if result = view then foundview = 1
  44.     end
  45.  
  46. if errors = 0 then do
  47.     okay1 'Found no Errors/Warnings.'
  48.     exit 0
  49.     end
  50.  
  51. address command
  52. 'run <>NIL: c:rx BasmNextError.ced ' || CEDport
  53.